home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / trent / clean < prev    next >
Text File  |  1990-06-02  |  696b  |  17 lines
  1. %%HP: T(3)A(D)F(.);        @ CLEAN  Preserves specified variables and deletes
  2.                            @ the rest in the current directory.
  3. \<< 8 TVARS                @ Get a list of the program objects.
  4. 15 TVARS                   @ Get a list of the directory objects.
  5. + { }                      @ Put other variables to be preserved in this list.
  6. + \-> k
  7.   \<< VARS OBJ\-> 1        @ Put a list of the variables in the directory.
  8. SWAP
  9.     START k OVER
  10.       IF POS               @ If variable is not in k list, PURGE it
  11.       THEN DROP
  12.       ELSE PURGE
  13.       END
  14.     NEXT                   @ Developed by Kenneth Trent for SMI
  15.   \>>                      @ (615) 246-3790
  16. \>>
  17.